﻿Public Class Task

    Private _Body As String
    Public Property Body() As String
        Get
            Return _Body
        End Get
        Set(ByVal value As String)
            _Body = value.Replace(vbNewLine, "\n")
        End Set
    End Property

    Private _Categories As String
    Public Property Categories() As String
        Get
            Return _Categories
        End Get
        Set(ByVal value As String)
            _Categories = value
        End Set
    End Property

    Private _Complete As Boolean
    Public Property Complete() As Boolean
        Get
            Return _Complete
        End Get
        Set(ByVal value As Boolean)
            _Complete = value
        End Set
    End Property

    Private _DueDate As String
    Public Property DueDate() As String
        Get
            Return _DueDate
        End Get
        Set(ByVal value As String)
            _DueDate = value
        End Set
    End Property

    Private _Importance As String
    Public Property Importance() As String
        Get
            Return _Importance
        End Get
        Set(ByVal value As String)
            _Importance = value
        End Set
    End Property

    Private _ItemId As String
    Public Property ItemId() As String
        Get
            Return _ItemId
        End Get
        Set(ByVal value As String)
            _ItemId = value
        End Set
    End Property

    Private _Sensitivity As String
    Public Property Sensivitty() As String
        Get
            Return _Sensitivity
        End Get
        Set(ByVal value As String)
            _Sensitivity = value
        End Set
    End Property

    Private _StartDate As String
    Public Property StartDate() As String
        Get
            Return _StartDate
        End Get
        Set(ByVal value As String)
            _StartDate = value
        End Set
    End Property

    Private _Subject As String
    Public Property Subject() As String
        Get
            Return _Subject
        End Get
        Set(ByVal value As String)
            _Subject = value
        End Set
    End Property
End Class

Public Class Tasks

    Private _Rows As List(Of Task)
    Public Property Rows() As List(Of Task)
        Get
            Return _Rows
        End Get
        Set(ByVal value As List(Of Task))
            _Rows = value
        End Set
    End Property

    Private _Success As Boolean = True
    Public Property Success() As Boolean
        Get
            Return _Success
        End Get
        Set(ByVal value As Boolean)
            _Success = value
        End Set
    End Property

    Public ReadOnly Property Results() As Long
        Get
            Return Me.Rows.Count
        End Get
    End Property
End Class
